home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / DISK2 / PINAAC.CM_ / PINAAC.CM
Encoding:
Text File  |  1996-04-16  |  681 b   |  39 lines
  1. if ![load $number]
  2.   if [query $number "Enter your dial up phone number"]
  3.     save $number
  4.   end
  5. end
  6. if ![load $modemsetup]
  7.   if [query $modemsetup "Enter your modem setup string"]
  8.     save $modemsetup
  9.   end
  10. end
  11.  
  12. %attempts = 10
  13. #---------------------------------------
  14. # initialize modem
  15. output "atz"\13
  16. if ! [input 10 OK\n]
  17.   display "Modem is not responding"\n
  18.   abort
  19. end
  20. #
  21. # setup our modem commands
  22. #
  23. output $modemsetup\13
  24. input 10 OK\n
  25. #
  26. # send phone number
  27. #
  28. %n = 0
  29. repeat
  30.   if %n = %attempts
  31.     display "Too many dial attempts"\n
  32.     abort
  33.   end
  34.   output "atdt"$number\13
  35.   %ok = [input 60 CONNECT]
  36.   %n = %n + 1
  37. until %ok
  38. #output \e
  39.